home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Buttons.cpt / Buttons, Buttons / card_3977.txt < prev    next >
Text File  |  1992-03-04  |  10KB  |  442 lines
  1. -- card: 3977 from stack: in
  2. -- bmap block id: 4302
  3. -- flags: 0000
  4. -- background id: 2690
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0001
  11. -- rect: left=9 top=25 right=44 bottom=38
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1015 / 1015
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   If the icon of me is 1015 then
  23.     set the icon of me to 1016
  24.     play "click"
  25.   else if the icon of me is 1016 then
  26.     set the icon of me to 1015
  27.     play "click"
  28.   end if
  29. end mouseUp
  30.  
  31.  
  32. -- part 2 (button)
  33. -- low flags: 00
  34. -- high flags: 0001
  35. -- rect: left=361 top=9 right=32 bottom=400
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 1013 / 1013
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: New Button
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   visual effect wipe right
  47.   go to next card
  48. end mouseUp
  49.  
  50.  
  51. -- part 3 (button)
  52. -- low flags: 00
  53. -- high flags: 0001
  54. -- rect: left=361 top=41 right=64 bottom=400
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 1014 / 1014
  57. -- text alignment: 1
  58. -- font id: 0
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: New Button
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   visual effect dissolve
  66.   go to prev card
  67. end mouseUp
  68.  
  69.  
  70. -- part 4 (button)
  71. -- low flags: 00
  72. -- high flags: 8001
  73. -- rect: left=82 top=15 right=61 bottom=134
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 18555 / 18555
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: MST 3000
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   If the icon of me is 18555 then
  85.     set the icon of me to 18556
  86.     wait for 10 ticks
  87.     set the icon of me to 18557
  88.     wait for 10 ticks
  89.     set the icon of me to 18558
  90.     wait for 10 ticks
  91.     set the icon of me to 18559
  92.     wait for 10 ticks
  93.     set the icon of me to 18560
  94.     wait for 10 ticks
  95.     set the icon of me to 18561
  96.     wait for 10 ticks
  97.     set the icon of me to 18562
  98.     wait for 10 ticks
  99.     set the icon of me to 18563
  100.     wait for 10 ticks
  101.     set the icon of me to 18564
  102.     wait for 10 ticks
  103.     set the icon of me to 18565
  104.     wait for 10 ticks
  105.     set the icon of me to 18566
  106.     play "click"
  107.   else if the icon of me is 18566 then
  108.     play "click"
  109.     set the icon of me to 18565
  110.     wait for 20 ticks
  111.     set the icon of me to 18564
  112.     wait for 10 ticks
  113.     set the icon of me to 18563
  114.     wait for 10 ticks
  115.     set the icon of me to 18562
  116.     wait for 10 ticks
  117.     set the icon of me to 18561
  118.     wait for 10 ticks
  119.     set the icon of me to 18560
  120.     wait for 10 ticks
  121.     set the icon of me to 18559
  122.     wait for 10 ticks
  123.     set the icon of me to 18558
  124.     wait for 10 ticks
  125.     set the icon of me to 18557
  126.     wait for 10 ticks
  127.     set the icon of me to 18556
  128.     wait for 10 ticks
  129.     set the icon of me to 18555
  130.     play "click"
  131.   end if
  132. end mouseUp
  133.  
  134.  
  135. -- part 5 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=40 top=19 right=53 bottom=79
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 5182 / 5182
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: New Button
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   If the icon of me is 5182 then
  150.     set the icon of me to 5183
  151.     play "click"
  152.   else if the icon of me is 5183 then
  153.     set the icon of me to 5182
  154.     play "click"
  155.   end if
  156. end mouseUp
  157.  
  158.  
  159. -- part 6 (button)
  160. -- low flags: 00
  161. -- high flags: 8001
  162. -- rect: left=142 top=13 right=61 bottom=188
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 21627 / 21627
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Sardines
  171. ----- HyperTalk script -----
  172. on mouseUp
  173.   If the icon of me is 21627 then
  174.     set the icon of me to 21628
  175.     play "crank"
  176.     wait for 30 ticks
  177.     set the icon of me to 21629
  178.     play "crank"
  179.     wait for 30 ticks
  180.     set the icon of me to 21630
  181.     play "crank"
  182.     wait for 30 ticks
  183.     set the icon of me to 21631
  184.     play "crank"
  185.     wait for 30 ticks
  186.     set the icon of me to 21632
  187.     wait for 10 ticks
  188.     set the icon of me to 21633
  189.     wait for 10 ticks
  190.     set the icon of me to 21634
  191.     wait for 10 ticks
  192.     set the icon of me to 21635
  193.     wait for 10 ticks
  194.     set the icon of me to 21636
  195.     wait for 10 ticks
  196.     set the icon of me to 21637
  197.   else if the icon of me is 21637 then
  198.     play "click"
  199.     set the icon of me to 21635
  200.     wait for 20 ticks
  201.     set the icon of me to 21634
  202.     wait for 10 ticks
  203.     set the icon of me to 21633
  204.     wait for 10 ticks
  205.     set the icon of me to 21632
  206.     wait for 10 ticks
  207.     set the icon of me to 21631
  208.     wait for 30 ticks
  209.     set the icon of me to 21630
  210.     play "crank"
  211.     wait for 30 ticks
  212.     set the icon of me to 21629
  213.     play "crank"
  214.     wait for 30 ticks
  215.     set the icon of me to 21628
  216.     play "crank"
  217.     wait for 30 ticks
  218.     play "crank"
  219.     set the icon of me to 21627
  220.   end if
  221. end mouseUp
  222.  
  223.  
  224. -- part 7 (button)
  225. -- low flags: 00
  226. -- high flags: 8000
  227. -- rect: left=195 top=13 right=62 bottom=234
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 26890 / 26890
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: split P
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   If the icon of me is 26890 then
  239.     set the icon of me to 26891
  240.     wait for 10 ticks
  241.     set the icon of me to 26892
  242.     wait for 10 ticks
  243.     set the icon of me to 26893
  244.     wait for 10 ticks
  245.     set the icon of me to 26894
  246.     wait for 10 ticks
  247.     set the icon of me to 26895
  248.     wait for 10 ticks
  249.     set the icon of me to 26896
  250.     play "click"
  251.     wait for 10 ticks
  252.     set the icon of me to 26897
  253.     wait for 10 ticks
  254.     set the icon of me to 26898
  255.     wait for 10 ticks
  256.     set the icon of me to 26899
  257.     wait for 10 ticks
  258.     set the icon of me to 26900
  259.     wait for 10 ticks
  260.     set the icon of me to 26901
  261.     wait for 10 ticks
  262.     set the icon of me to 26902
  263.   else if the icon of me is 26902 then
  264.     play "click"
  265.     set the icon of me to 26903
  266.     wait for 20 ticks
  267.     play "click"
  268.     set the icon of me to 26902
  269.     wait for 10 ticks
  270.     set the icon of me to 26901
  271.     wait for 10 ticks
  272.     set the icon of me to 26900
  273.     wait for 10 ticks
  274.     set the icon of me to 26899
  275.     wait for 10 ticks
  276.     set the icon of me to 26898
  277.     wait for 10 ticks
  278.     set the icon of me to 26897
  279.     wait for 10 ticks
  280.     set the icon of me to 26896
  281.     wait for 10 ticks
  282.     set the icon of me to 26895
  283.     wait for 10 ticks
  284.     set the icon of me to 26894
  285.  
  286.     wait for 10 ticks
  287.     set the icon of me to 26893
  288.     play "click"
  289.     wait for 10 ticks
  290.     set the icon of me to 26892
  291.     wait for 10 ticks
  292.     set the icon of me to 26891
  293.     wait for 10 ticks
  294.     set the icon of me to 26890
  295.   end if
  296. end mouseUp
  297.  
  298.  
  299. -- part 8 (button)
  300. -- low flags: 00
  301. -- high flags: 0000
  302. -- rect: left=242 top=12 right=54 bottom=276
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 11234 / 11234
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: New Button
  311. ----- HyperTalk script -----
  312. on mouseUp
  313.   If the icon of me is 11234 then
  314.     set the icon of me to 11216
  315.     wait for 10 ticks
  316.     set the icon of me to 11217
  317.     wait for 10 ticks
  318.     set the icon of me to 11218
  319.     wait for 10 ticks
  320.     set the icon of me to 11219
  321.     wait for 10 ticks
  322.     set the icon of me to 11220
  323.     wait for 10 ticks
  324.     set the icon of me to 11221
  325.     wait for 10 ticks
  326.     set the icon of me to 11222
  327.     wait for 10 ticks
  328.     set the icon of me to 11223
  329.     wait for 10 ticks
  330.     set the icon of me to 11224
  331.     wait for 10 ticks
  332.     set the icon of me to 11225
  333.     wait for 10 ticks
  334.     set the icon of me to 11226
  335.     wait for 10 ticks
  336.     set the icon of me to 11227
  337.     wait for 10 ticks
  338.     set the icon of me to 11228
  339.     wait for 10 ticks
  340.     set the icon of me to 11229
  341.     wait for 10 ticks
  342.     set the icon of me to 11230
  343.     wait for 10 ticks
  344.     set the icon of me to 11231
  345.     wait for 10 ticks
  346.     set the icon of me to 11232
  347.     wait for 10 ticks
  348.     set the icon of me to 11233
  349.     wait for 10 ticks
  350.     set the icon of me to 11234
  351.   end if
  352. end mouseUp
  353.  
  354.  
  355. -- part 9 (button)
  356. -- low flags: 00
  357. -- high flags: 0002
  358. -- rect: left=288 top=11 right=59 bottom=334
  359. -- title width / last selected line: 0
  360. -- icon id / first selected line: 31036 / 31036
  361. -- text alignment: 1
  362. -- font id: 0
  363. -- text size: 12
  364. -- style flags: 0
  365. -- line height: 16
  366. -- part name: New Button
  367. ----- HyperTalk script -----
  368. on mouseUp
  369.   waveroll
  370.   sharkRight
  371.   waveroll
  372.   sharkLeft
  373.   waveroll
  374.   sharkRight
  375.   sharkLeft
  376.   sharkRight
  377.   sharkLeft
  378.   sharkRight
  379.   sharkLeft
  380.   sharkOut
  381.   sharkThrash
  382.   sharkOut
  383.   sharkThrash
  384.   waveroll
  385.   set the icon of me to 31036
  386. end mouseUp
  387.  
  388. on waveroll
  389.   repeat for 4
  390.     set the icon of me to 29869
  391.     wait for 10 ticks
  392.     set the icon of me to 29870
  393.     wait for 10 ticks
  394.     set the icon of me to 29868
  395.     wait for 10 ticks
  396.     set the icon of me to 29869
  397.     wait for 10 ticks
  398.     set the icon of me to 29870
  399.     wait for 10 ticks
  400.   end repeat
  401. end waveroll
  402.  
  403. on sharkRight
  404.   -- Shark swim to right
  405.   set the icon of me to 29871
  406.   wait for 10 ticks
  407.   set the icon of me to 29872
  408.   wait for 10 ticks
  409.   set the icon of me to 29873
  410.   wait for 10 ticks
  411. end sharkRight
  412.  
  413. on sharkLeft
  414.   set the icon of me to 29874
  415.   wait for 10 ticks
  416.   set the icon of me to 29875
  417.   wait for 10 ticks
  418.   set the icon of me to 29876
  419.   wait for 10 ticks
  420. end sharkLeft
  421.  
  422. on sharkOut
  423.   set the icon of me to 29877
  424.   wait for 10 ticks
  425.   set the icon of me to 29878
  426.   wait for 10 ticks
  427.   set the icon of me to 29879
  428.   wait for 10 ticks
  429. end sharkOut
  430.  
  431. on sharkThrash
  432.   repeat for 6
  433.     set the icon of me to 29879
  434.     wait for 10 ticks
  435.     set the icon of me to 29880
  436.     wait for 10 ticks
  437.   end repeat
  438.   set the icon of me to 29868
  439.   wait for 10 ticks
  440. end sharkThrash
  441.  
  442.